home *** CD-ROM | disk | FTP | other *** search
/ Urabon Golden Age Girl 2 / Urabon Golden Age Girl 2.iso / mac / 裏ガール２data / FAVORITE.DIR / 00010_up.ls < prev    next >
Encoding:
Text File  |  1995-01-18  |  484 b   |  19 lines
  1. on mouseDown
  2.   global intrbal
  3.   repeat while the stillDown
  4.     if rollOver(clickOn()) then
  5.       set the castNum of sprite clickOn() to the number of cast "dnup"
  6.     else
  7.       set the castNum of sprite clickOn() to the number of cast "up"
  8.     end if
  9.     updateStage()
  10.   end repeat
  11.   if intrbal > 599 then
  12.     exit
  13.   end if
  14.   set intrbal to intrbal + 60
  15.   put integer(intrbal / 60) into field "TMP"
  16.   set the castNum of sprite clickOn() to the number of cast "up"
  17.   updateStage()
  18. end
  19.